home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IO Examples / Scrabble / Nederlands / language.dcl next >
Encoding:
Modula Definition  |  1997-05-14  |  2.9 KB  |  109 lines  |  [TEXT/3PRM]
  1. definition module language
  2.  
  3.  
  4. import    StdList, StdArray, _SystemArray, StdEnum
  5. import    deltaTimer, deltaSystem
  6. import    board
  7.  
  8.  
  9. /*    This module contains macro's to make the scrabble application language customisable.
  10. */
  11.  
  12. //    The filename of the lexicon:
  13.  
  14. lexiconfilename    :==    toString DirSeparator+++"Nederlands"+++toString DirSeparator+++"Nederlands_lexicon"
  15.  
  16. //    The filename of the help file:
  17.  
  18. helpfilename    :==    toString DirSeparator+++"Nederlands"+++toString DirSeparator+++"ScrabbleHelp"
  19.  
  20.  
  21. //    The set of letters used in the scrabble game.
  22.  
  23. letterbox    :: [Char]
  24. lettervalue    :: !Char -> Int
  25.  
  26.  
  27. //    String conversion functions:
  28.  
  29. instance toString Player
  30. instance toString Playerkind
  31. instance toString Direction
  32. instance toString Strength
  33. instance toString (a,b) | toString a & toString b
  34.  
  35.  
  36. //    Text used to communicate with the user in the display control.
  37.  
  38. exchanges_letters
  39.     :==    " ruilt letters in."
  40. placement_error word pos
  41.     :==    [    " door het woord '"+++word+++"'"
  42.         ,    " op "+++toString pos+++" te plaatsen"
  43.         ,    " grenst het nergens aan de liggende letters."
  44.         ]
  45. anonymous_placement_error
  46.     :==    [    "woord kan daar niet geplaatst worden."    ]
  47. missing_letters_error cs
  48.     :==    [    "je kunt het woord niet vormen want je mist de letter(s): "
  49.         ,    "   "+++{c\\c<-cs}+++"."
  50.         ]
  51. nr_new_words_placed nr words
  52.     :==    if (nr==0)
  53.             ["Geen nieuwe woorden geplaatst.",Wait (2*TicksPerSecond) ""]
  54.        (if (nr==1)
  55.                ["Nieuw woord geplaatst: ",hd words,Wait (2*TicksPerSecond) ""]
  56.             [toString nr+++" Nieuwe woorden geplaatst: " : words++[Wait (2*TicksPerSecond) ""]]
  57.        )
  58. has_won                :==    " heeft gewonnen."
  59. is_a_draw            :==    "Gelijk spel."
  60. is_move                :==    " is aan zet."
  61.  
  62. determines_new_word    :==    " bepaalt een nieuw woord"
  63. determined_new_word    :==    " heeft een nieuw woord bepaald."
  64. found_upto_now        :==    "gevonden woord tot nu toe:"
  65. score_upto_now        :==    "score tot nu toe:"
  66. at_pos                :== "op:"
  67.  
  68.  
  69. //    Text used in the GUI definition.
  70.  
  71. //    The Scrabble menu:
  72. scrabblemenutitle        :==    "Scrabble"
  73. playersmenutitle        :==    "Spelers"
  74. newgametitle            :==    "Nieuw"
  75. quitgametitle            :==    "Quit"
  76.  
  77. //    The Strength menu:
  78. strengthmenutitle        :==    "Speelsterkte"
  79.  
  80. //    The Scrabble dialog:
  81. scrabbledialogtitle        :==    "Scrabble"
  82. scrabbledialogscore        :==    "Score"
  83. scrabbledialogword        :==    "Speler woord"
  84. scrabbledialogdirection    :==    "Richtingkeuze"
  85. scrabbledialogplaceword    :==    "Leg woord"
  86. scrabbledialoginittext lexicon
  87.     :==    [    "Aantal ingelezen woorden: "
  88.         ,    toString (sizetree lexicon)
  89.         ,    "Diepte zoekboom:"
  90.         ,    toString (depthtree lexicon)
  91.         ,    Wait (2*TicksPerSecond) ""
  92.         ]
  93.  
  94. //    The Add Words dialog:
  95. addwordstitle            :==    "Toevoegen"
  96. addwordsheading nr
  97.     :==    if (nr==1)    ("Woord komt niet voor.",    "Wil je het woord toevoegen?")
  98.                     ("Woorden komen niet voor.","Wil je de woorden toevoegen?")
  99. addwords_yes            :==    "Ja"
  100. addwords_no                :==    "Nee"
  101.  
  102. //    The Save notice:
  103. save_notice_text
  104.     :==    [    "Bewaar toegevoegde woorden"
  105.         ,    "van woordenboek?"
  106.         ]
  107. save_notice_yes            :==    "Ja"
  108. save_notice_no            :==    "Nee"
  109.